Public Class Question

    Private _id As Integer
    Private _question As String
    Private _configuration As String

    Public Sub New( _
    ByVal id As Integer, _
    ByVal question As String, _
    ByVal configuration As String)
        _id = id
        _question = question
        _configuration = configuration
    End Sub

    Public ReadOnly Property ID() As Integer
        Get
            Return _id
        End Get
    End Property
    Public ReadOnly Property Question() As String
        Get
            Return _question
        End Get
    End Property
    Public ReadOnly Property Configuration() As String
        Get
            Return _configuration
        End Get
    End Property

End Class
